home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / TIMESHOW.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  2.3 KB  |  41 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '*****************  ELAPSED TIME DISPLAY ROUTINE  **************************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN                ELAPSED TIME DISPLAY SUBROUTINE FOR MERGE                OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN    Frequently, we wish to know how long we have been working on a par-  OPEN
  7. 24  'OPEN ticular operation in a program (Data entry, etc). This is calculated    OPEN
  8. 26  'OPEN and displayed with the following subroutine. You can "GOTO 10000" at    OPEN
  9. 28  'OPEN any functional break (enter data , etc) in your program and the total   OPEN
  10. 30  'OPEN elapsed time since program start will display in line 25. Make certain  OPEN
  11. 31  'OPEN you put the BB$=TIME$ (line 130) in the beginning of your program so    OPEN
  12. 32  'OPEN that the start time is recorded.  You may decrease or eliminate the     OPEN
  13. 33  'OPEN delay loop in line 10090 as desired.  This program may be used without  OPEN
  14. 34  'OPEN license or attribution (c) G I N A C O    -- 1983  Ver 5.2/160/320      OPEN
  15. 38  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  16. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  17. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  18. 60  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  19. 100  KEY OFF:COLOR 7,0
  20. 130  BB$=TIME$
  21. 140  GOSUB 10000
  22. 145  LOCATE 15,20: PRINT"PRESS ANY KEY TO SEE AGAIN == PLUS INCREASED TIME"
  23. 150  A$ = INKEY$: IF A$ = "" THEN 150 ELSE 160
  24. 160  LOCATE 15,1:PRINT SPC(70):GOTO 140
  25. 10000  REM ********* ELAPSED TIME PRINTOUT SUBROUTINE *****************
  26. 10010  N$=TIME$
  27. 10020  DEF FNH(H$)=VAL(LEFT$(H$,2))
  28. 10030  DEF FNM(M$)=VAL(MID$(M$,4,2))
  29. 10040  DEF FNS(S$)=VAL(RIGHT$(S$,2))
  30. 10050  TMH=(FNH(N$))-FNH(BB$):TMM=(FNM(N$)-FNM(BB$)):TMS=(FNS(N$)-FNS(BB$))
  31. 10060  KEY ON:KEY OFF: LOCATE 25,3:PRINT "START TIME ";BB$;
  32. 10070  LOCATE 25,30:PRINT"END TIME ";N$;
  33. 10080  LOCATE 25,55:PRINT "ELAPSED TIME ";TMH;":";ABS(TMM);":";ABS(TMS);
  34. 10090  FOR I= 1 TO 5000:NEXT
  35. 10100  LOCATE 25,50:PRINT SPC(30);
  36. 10110  LOCATE 25,52:PRINT TMH;":";ABS(TMM);":";ABS(TMS);:COLOR 3,0:PRINT " (AT LAST CHECK)";:COLOR 7,0
  37. 10120  RETURN
  38. 10130  REM **** REMOVE LINES 140-150 TO INSTALL IN YOUR PROGRAM ***************
  39. 65000  REM ****************** SAVE ROUTINE ************************************
  40. 65100  SAVE"B:TIMESHOW.BAS"
  41.